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TITLE CONSOLIO = CONSOLE TERMINAL I/0 ROUTINES 
IDENT ‘*ve-000" 
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COPYRIGHT (c) wer? 1980, 1982, 1984 BY 
biGiT AL EQUIP 1 CORPORATION, MAYNARD, MASSACHUSETTS. 


*® © 
*® ® 
:* & 
** ® 
:® & 
;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. ® 
® ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. . 
® ® 
:® t 
*® ® 
® * 
*® ® 
*® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


TIPS PSST SPST IPP rir ri rit iii iii iitiiiiiiiiiititiiiiiy 
De N. CUTLER 12-AUG-76 

CONSOLE I/0 ROUTINES 

Modified by: 


V03-001 WHM0001 Bill Matthews 9-Jul-1984 
Add support for alternate console terminal. 
v02-004 TCMO0002 Trudy C. Matthews 10-Aug-1981 


Remember to strip parity bit when checking for XON/XOFF . 


v02-003 TCM0001 Trudy C. Matthews Le ay % -1981 
Added XON/XOFF recognition during terminal I/ 
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~SBTTL CONVERT LONGWORD TO HEX AND OUTPUT DIGITS 
EXESOUTHEX = CONVERT LONGWORD TO HEX AND OUTPUT DIGITS 
THIS ROUTINE IS CALLED VIA A JSB TO CONVERT A LONGWORD TO HEX A 
ree THE RESULTANT DIGITS TO A SPECIFIED DEVICE IN NONINT ERRUP 
INPUTS: 


Ri = VALUE TO BE CONVERTED. 
R11 = OUTPUT DEVICE CSR ADDRESS. 


NM OOODNAOULS WN OOONOUES WH "O0ON De 


a 4 os Ss ss — s — - ss 4 


z 
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OUTPUTS: 
THE SPECIFED VALUE IS CONVERTED TO HEX AND OUTPUT. 
.PSECT Z$INIT__BUGC ; 
EXESOUTHEX: : :CONVERT AND OUTPUT HEX LONGWORD 
MOVL if, ‘SET POSITION OF FIRST FOUR BIT OF TELD 
10$:  EXTZV RO :GET NEXT FOUR BITS OF VALUE 
MOVZBL Re he RI HEXTABLRO],RO :GET ASCII CHARACT ad 
BSBB —- EXESOUTCRAR SOUTPUT DIGIT 
ACBB #0, #-4,R2, 108 tANY MORE DIGITS TO CONVERT? 


CV 
ve 


uso 


2. 
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K CHARACTER =SEP-1984 SYS.SRCJCONSOLIO.MAR; 1 (1) 
; .SBTTL OUTPUT BLANK CHARACTER 
: EXESOUTBLANK = OUTPUT BLANK CHARACTER 


; THIS ROUTINE IS CALLED VIA A JSB TO OUTPUT A BLANK CHARACTER TO A 
; SPECIFIED DEVICE. 


: INPUTS: 
: R11 = OUTPUT DEVICE CSR ADDRESS. 

+ OUTPUTS: 

: BLANK CHARACTER IS OUTPUT TO SPECIFIED DEVICE. 
EXESOUTBLANK: : ;OUTPUT BLANK CHARACTER 


MOVZBL #BLANK,RO ‘SET BLANK CHARACTER 
BRB EXESOUTCHAR : 
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yous000 OUTPUT CHARACTER aaSee ERs Geizaids LONCMRS Recta vOs~00. al 


1 144 e .SBTTL OUTPUT CHARACTER 
IF 166 : EXESOUTCHAR = OUTPUT CHARACTER 
1F 148 THIS ROUTINE IS CALLED VIA A JSB TO OUTPUT A CHARACTER TO A SPECIFIED 
IF 14 ; DEVICE. 
It 133 + INPUTS: 
aa : : RO = CHARACTER TO OUTPUT. 
IF 4 3 Ril = OUTPUT DEVICE CSR ADDRESS (ZERO IMPLIES CONSOLE TERMINAL). 
IF & : OUTPUTS: 
O1F 136 : CHARACTER IS OUTPUT TO THE SPECIFIED DEVICE. IF THE CHARACTER 
O1F 159: 1S A CARRIAGE RETURN AND THE OUTPUT DEVICE IS THE CONSOLE TERMINAL, 
OIF 199 ; THEN A SUFFICIENT NUMBER OF FILL CHARACTERS ARE ALSO 
1F 162° 
Orr 188 EXESOUTCHAR:: OUTPUT CHARACTER 
51 DD OO1F 164 PUSHL R1 : GET A WORKING REGISTER 
5B 42S «6(0021~—s«165 TSTL. R11 [CONSOLE TERMINAL? 
08 12 00 3 166 BNEQ 208 t1F NEQ NO 
00000000" 9F 16 0 5 167 188 a#CONSPUTCHAR ;CALL CONSOLE TERMINAL SPECIFIC ROUTINE 
68 0080 oF BS 0 p 199 208 BITy #*X080, TCSR(R11) :DEVICE READY? 
02 a8 50 90 0034 171 MOVB RO, TOBR(R11) OUTPUT CHARACTER 
50 OD 91 0038 1% 30$ CMPB ss MCR, RO SCARRIAGE RETURN? 
OF if 038 «(17 BNEQ 60% :IF NEQ NO 
B OD 03D 174 TSTL R11 [CONSOLE TERMINAL? 
08 12 OO3F 175 BNEQ 60% 31 
50 D4 0041 1% 40$:  CLRL RO [SET FILL CHARACTER 
02 DD 043 17 PUSHL #2 SET FIL my COUNT 
D8 10 0045 178 50S: SBB_- EXESOUTCHAR SOUTPUT A FILL CHARACTER 
FB 6E F5 0047 179 SOBGTR (SP),50$ ANY MOR — FILLS TO OUTPUT? 
BE D5 004A 180 TSTL  (SP)4 SCLEAN STACK 
51 8EDO 004C 181 60S POPL RI : RESTORE WORKING REGISTER 
eae tt ~s 
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~SBTTL OUTPUT CARRIAGE RETURN/LINE FEED PAIR 
EXESOUTCRLF = OUTPUT CARRIAGE RETURN/LINE FEED PAIR 


THIS ROUTINE IS CALLED TO OUTPUT A CARRIAGE RETURN/LINE FEED PAIR TO A 
SPECIFIED DEVICE. 


INPUTS: 
R11 = OUTPUT DEVICE CSR ADDRESS. 
OUTPUTS: 
A coeg tate RETURN FOLLOWED BY A LINE FEED IS OUTPUT TO THE SPECIFIED 


ZOUTPUT CARRIAGE RETURN/LINE FEED PAIR 
#CR,RO SSET CARRIAGE RETURN CHARACTER 
EXESOUTCHAR OUTPUT CARRIAGE 


BSBB 
MOVZBL 3 L R 
BRB EXESOUTCHAR SOUTPUT LINE FEED CHARACTER 


v04=000" ouTPu 
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DO 
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~SBTTL OUTPUT COUNTED AND ZERO TERMINATED STRINGS 


mm 


LE TERM 
COUNTED 

i 

A EXESOUTCSTRING = OUTPUT COUNTED STRING 

A 1¢ : THIS ROUTINE IS CALLED VIA A JSB TO OUTPUT A STRING WHOSE FIRST CHARACTER 

. 17 3; IS THE NUMBER OF CHARACTERS TO BE OUTPUT. 

A 13 ; INPUTS: 

A i R1 = ADDRESS OF COUNTED STRING. 

DA 18 ; R11 = OUTPUT DEVICE CSR ADDRESS. 

08h 0; : OUTPUTS: 

O5A gi ; THE NUMBER OF CHARACTERS SPECIFIED BY THE FIRST BYTE OF THE STRING 
005A ; ARE OUTPUT TO THE SPECIFIED DEVICE. OUTPUT IS ALSO TERMINATED IF 
005A 4: A ZERO BYTE IS ENCOUNTERED BEFORE THE COUNT IS EXHAUSTED. 
boa 558° 
005A $ .ENABL LSB 
005A 8 EXESOUTCSTRING:: ;OUTPUT COUNTED STRING 

52. 81 9A 005A 9 MOVZBL (R1)+,R2 [SET COUNT OF CHARACTERS TO OUTPUT 
06 11 005D 0 RB 10$ ; 
er Be. 
Oper 38 t EZESOUTZSTRING = OUTPUT ZERO TERMINATED STRING 
005F 5 : THIS ROUTINE IS CALLED VIA A JSB TO OUTPUT A STRING THAT IS TERMINATED BY 
O05 $ : A ZERO BYTE. 
O09F 8 : INPUTS: 
OO5F 40 : R1 = ADD RESS 0 OF ZERO TERMINATED STRING. 
SF 41 : R11 = OUTPUT DEVICE CSR ADDRESS. 
008 “8 : OUTPUTS: 
O05 45 : CHARACTERS FROM THE SPECIFIED STRING ARE OUTPUT UNTIL A ZERO BYTE 
O5F 46 : IS ENCOUNTERED. 
Sep 
003 rk EXESOUTZSTRING:: sOUTPUT ZERO TERMINATED STRING 
52 FF 8F 9A OO5SF 250 MOVZBL #255,R2 [SET MAXIMUM ALLOWABLE STRING LENGTH 
50 81 9A 63 31 10$:  MOVZBL (R1)+,RO ‘GET NEXT CHARACTER FROM INPUT STRING 
5 13 6 : BEQL 208 SIF EQL END STRI 
83 10 6 5 BSBB  =—« EXESOUTCHAR [OUTPUT CHARACTER 
F6 52 Fe O6A 34 a SOBGTR R2,10$ TANY MORE CHARACTERS TO OUTPUT? 
dost 36 . .DSABL LSB ’ 

06E 25 

006E 258 END 
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me table 3 See 1 388 83:28:59 EOYS SRCICONSOL1O.MAR: 1 - d) 
BLANK = 00000020 
CONSPUTCHAR eeeeeeee =X = 603 
CONTROL _ = i} 
CONTROLS = 1 
= 

EXESAB_HEXTAB RG 
EXESOUTBLANK A RG 
EXESOUTCHAR if RG 
EXESOUTCRLF 20 RG 
EXESOUTCSTRING ; A RG 
EXESOUTHEX 10 20 RG 
EXESOUTZSTRING ob 4 F RG 0 
LF = 
RCSR = FRFFFFFC 
RDBR = Sapnos? 
SEVEN = 0000003 
TCSR = 00000000 
TDBR = BO f OSS 
ZERO = 000000 

eeeceeeeaeeeoaoaaen + 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ #41.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
SAE XENONPAGED 00000010 (¢ 16.) if ( <i NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
ZSINIT__BUGC OOOO006E (¢ 110.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

fos eee arernan anne mamaweoes + 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 37 0:00:00. 0:00:01.26 
Command processing \¢8 0:00: 0:53 ‘00; $5 
Pass 1 1 0:00:01.5 0:00:06.4 
Symbol table sort :00:00.09 0:00:00. 
Pass 2 5 3: : 8 3: :01. 
Symbol table output 3 00:00. :00:00. ¢ 
Psect synopsis output 1 8: :00. 8: :00. 
Cross-reference output g :00:00. :00:00. 
Assembler run totals 36 0:00:02. 0:00:12. 


Tee working $ t Limit was 1050 pages. 

7334 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 99 non-local and 8 local symbols. 
58 source Lines were read in Pass 1, produc ing object records in Pass 2. 

pages of virtual memory were used to define / macros. 
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conse 10 
VAX=11 Macro Run Statistics 


Macro Library name 


“Hee pases Eeysi TBISTARCET ALB:2 
TOTALS (all Libraries) 


139 GETS were required to define 4 macros. 


- CONSOLE TERMINAL 1/0 ROUTINES 


Foe oeeoeeeeeceoceeceesseseeca} 


! Macro Library statistics ! 


geome oem mm ewer ew ac mecca cen nd 


Macros defined 
0 
4 
4 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CONSOL10/0BJ=0BJ$:CONSOLIO MSRC$:CONSOLIO/UPDATE=(ENH$: CONSOLIO) +EXECML$/LIB 


15-SEP= 
“SEP=1 


1986 63:20:59 
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